RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE fjnfnj ( 


IDE *V04-000' 
<BL NSs32t" ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
, NONEXTERNAL = LONG-RELATIVES) 


BEGIN 


' 
ESSA SLESESTISCII EIST TT TTT TTT TTT TPT Trice ere creer iirc i iii i i iii siti iii itis) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


. AND 
!* ONLY IN ACCORDANCE i he THE TERMS OF +t 
WIS 

T 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TG CHANGE WITHOUT NOTICE 
y onbpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
ca 
® 
* 
* 
® 
® 
® 
' 4% 
ie TRANSFERRED. . 
* 
5 
® 
® 
® 
* 
& 
® 
' * 
Yee 
i] 
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ie¢ 
i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: 


! 

i] 

! Processes .AUTOFILL, .NO AUTOFILL ILL, .JUSTIFY, .NO FILL 
-NO JUSTIFY, -KEEP, .NO KEEP, tt toou STIFY, and .NO AUTOJUSTIFY 
; 

' 

| 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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peetre "Revision History’ 
MODIFIED BY: 

005 REROOOOS 
7 
ie 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJF JNFNJ.BLI; 


Global edit of alt modules. 


copyright dates. Changed ss uedat files to BLISS li 


Sete Se Ge Se 
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v04- Module Level Declarations 


ZSBITL ‘Module Level Declarations’ 


' 
TABLE OF CONTENTS: 


INCLUDE FILES: 


VSWR —"OWONOW 
CONAN OOONOULW 


ODOOOOOA AOI 


; 1 

: 1 

: 1 

3 1 i 

_  . 1 / 

$ 6 i! 

i a3 | | 

3 6 ° 1 LIBRARY ‘NXPORT:XPORT'; 
; 2 : : REQUIRE ‘REQ:RNODEF'; 

3 68 U 01 1 ZF DSRPL US XTHEN 

$ 6 U 01 1 hipeenv TREGSDPEL IB’: 
3 68 01 1 XELSE 

$ 69 01 1 RPRnny *REQ:DSRLIB'; 

; 70 01 1 XFI 

; 71 344 1 

; a 00 1! 

3 7 0201 1 i EXTERNAL REFERENCES: 
: 74 0 oe 1 i 

3 75 020 1 EXTERNAL 

3 76 0204 1 GCA : GCA_DEFINITION, 
3 8Sb2 : SCA : SCA_DEFINITION; 


~N 
on 


5 -32 ye. Oe ree 
CJFJNFNJ.BLI; 


1$Seoc19Rs 00:28:44 yARGtT Ls 


! XPORT Library 
' RUNOFF ver iant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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16*Sep-1984 00:28:44 AX-11 Bliss-32 V4.0-74 p 4) 
Module Level Declarations 19-808- 1382 90: 8e is RUNOFF .SRCJF JNFNJ.BLI; we (4) 
GLOSAL ROUTINE FJNFNJ (HANDLER_CODE) : NOVALUE = 


'e¢ 

! FUNCTIONAL DESCRIPTION: 

FINFNJ makes sure that the fill and justification 

modes get set correctly. 

it also controls whether or not empty records get kept when 
n .NO FILL mode. 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


POIPIPOPOPYPIPRAPPIPOPYPIPIPYIPIPIPIPIPIPIPPPPonny 


BRR SS FAWN NIGP PNPININPININND 2 I OO eo 


:SCA_CROCK is for compatibility with TOPS- NOFF. Basically, 
‘if you say .NO FILL, you ‘probably’ don't want justification 
‘any more; on the other hand, when you say .FILL you probably 
ido want justification assuming you did not say .NO JUSTIFY. 

'In other words, SCA_CROCK is used tc remember whether or not you 
‘want justification when you say .FILL. 


ZIF DSRPLUS XTHEN 
'.NO AUTOJUSTIFY will now prevent .HL, CHAPTER, and APPENDIX from 
iresetting fill and justify after their operation. 


aFI 
seLecipe -HANDLER_CODE OF 


TRUE; 
 SCA_CROCK; 
ALSE; ‘Empty records have no significance. 


PIPIPOIPININININININININPININPINPININIPINYPY 


| 
HANDLER_CODE indicates which command is to be processed 
| 
| 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
'SCA_LFILL and SCA_JUSTIFY are TRUE for gee Leapecs ive functions. 


PEARED MANN & 


POPOPOPOPONIPINIPIPINS 


USTIFY = FALSE: | 


Module Level Declarations 
SCA_FILL = FALSE; 


tS 
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1e=88p-1986 13:66:18 — ERUNOF “SRE SF INFN “OL I; ~ es 


caeren = .GCA_KEEP; ‘Empty records generate blank Lines if user said .KEEP. 
CH_NO JUSTIFY] : 

BEGIN 

SCA_JUSTIFY = FALSE; 

SCA_CROCK = FALSE; 

END; 
CH_KEEP) : 

BEGIN 


‘Turn on .KEEP mode if already in .NO FILL mode, so the order of the 
‘commands is not important. 
IF NOT .SCA_FILL 


HEN 
SCA_KER = TRUE; 
ND; 


CH_NO KEEP] : 
GCA_KEEP = FALSE; 'Discard empty records in .NO FILL mode 
‘Turn off .KEEP mode if already in .NO FILL mode, so the order of the 
‘commands is not important. 
if te «SCA_FILL 


: 
SCA_KER = FALSE; 
ND; 


CH_AUTOJUSTIFY] : 
GCA_AUTOJUST = TRUE; 
END; 


CH_NO_AUTOJUSTIF) : 


N 
GCA_AUTOJUST = FALSE; 'This will now affect ‘‘autofill’’ and 
END; ‘prevent .HL, .CHAPTER, and .APPENDIX from 
TES; ‘resetting fitl and justify after their operation. 


'End of FJNFNJ 
TITLE FJNFNJ 

DENT \v04-000\ 
~-EXTRN GCA, SCA 
-PSECT SCODES,NOWRT,2 


| 
| 
GCA_KEEP = TRUE; 'User want's empty records kept in .NO FILL mode 
| 


000C¢ -ENTRY FJNFNJ, Save R2,R3 : 0207 
Le ee Fai 


F JNFN 16-56 Sep- 74 AX-11 Bliss-32 V4.0-74 o 
vou-000 Module Level Declarations 1 ~$e0n 138% 9: 86 48 RUNOFF .SRCJF JNFNJ.BLI; weft 


00000043 «BF 0 p 14 CMPL RQ. #67 ; 
00 8 , ip Ls. 8 : 
FC BS 08 ; p MOVL 3 ennhgae'g Oe ca+100 : 
00000069 8F 9 D § 1$: CMPL = RO, #105 : 
1 F BNEG 2 : 
FC OB 1D 1 MOVL #1, @SCA+10 : 
08 8B 1 BO 3 MOVL #1. @SCA+l1 : 
00000078 = 8F 50 D1 A 2: CMPL RO, #123 : 
12 4 BNEQ 3$ ; 
FC «BS OD 4 CLRL aSCA+100 : 
00 Be 04 46 CLRL  aSCA+104 : 
1c -B2 00 8B B0 0049 OVE @GCA+204, a@SCA+132 : 
00000094 =F 50 Di OOO4F 3$: CMPL RO, #148 : 
07 12 0056 BNEG 4$ F 
FC Be D4 0005 CLRL aSCA+10 ; 
08 B2 D4 00056 CLRL  aSCA+i1 : 
04 0005E RET 3 
0000006A =F 50 Di OO05F 4$: CMPL RO, #106 ; 
OD if 00066 BNEQ ; 
00 B83 01 6 00068 MOVL @GCA+204 : 
3} 00 B82 €8 0006C BLBS asta: +104, 9$ : 
1c «B2 01 DO 00070 MOVL , aSCA+132 ; 
04 00074 RET : 
00000093 =F 50 D1 00075 S$: CMPL RO, #147 : 
08 12 0007¢ BNEQ 7$ ; 
00 B3 D4 0007E CLRL aGCA+ : 
1C 00 B2 €E8 00081 BLBS astast04, 9$ ; 
1C B2 D4 90085 6$ CLRL : 
04 00088 RET : 
02 50 D1 00089 7$ CMPL RO, #2 ; 
06 12 0008C BNEQ : 
FF44 03 01 00 OO08E MOVL #1, aGCA+16 ; 
04 0009 RET : 
00000073 ~—8F 50 D1 00094 8s: CMPL RO, #115 : 
04 12 00098 BNEQ : 
FF44 D3 D4 0009D CLRL  aGCA+16 ; 
04 O00A1 9$: RET : 
; Routine Size: 162 bytes, Routine Base: S$CODE$ + 0000 
3; «181 0308 1 
; 136 0309 1 END 'End of module 
: 18 0310 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 


_— 


F INFN 1b-5¢ -Sep-1984 00: AX=11 Bliss-32 V4.0-74 

vou-000 Module Level Declarations Sep-1984 99: 66:18 RUNOFF. ORC IFINENG BLI; 

; SCODES 162 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
; Library Statistics ; 
; ecocesee Syabols ooco<o- Pages Processing ‘ 
; File Total Loaded Percent Mapped Time ‘ 
3 $DUA28: (SYSLIBIXPORT .L32;1 59 0 252 0:00. ‘ 
: $58e$puAS8, RUNOFF .SRCIDS Rie. L32;1 1308 2 1 86 $0:00:3 ‘ 
H COMMAND QUALIFIERS ‘ 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:F JNFNJ/OBJ=OBJ$:FJNFNJ MSRCS$:F INFNJ/UPDATE=(ENHS:F JNFNJ) ; 


Size: 162 gode 5 0 data bytes 
Run Time: 


Elapsed Time: 00:18 784 
Lines/CPU Min: 446 

Lexemes/CPU-Min: 15726 
cpa | Used: 42 pages 
Compilation Complete 
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